Aminet 50/Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso/Aminet/util/rexx/SCGuide.lha/SCGuide.rexx

OS/2 REXX Batch file | 2002-05-20 | 6KB | 115 lines

/* SCGuide 0.8 ©2002 Michael Trebilcock
$VER: SCGuide 0.8 (20.5.02) Sofcom TV Guide script
*/
Options Results;Parse Arg Args

IF Exists("LIBS:rexxreqtools.library")|Exists("LIBS/rexxreqtools.library")|Exists("rexxreqtools.library") THEN DO
IF ~Show("L","rexxreqtools.library") THEN Call AddLib("rexxreqtools.library",0,-30,0);End
ELSE Call CloseTCP("Unable to open rexxreqtools.library, please install LIBS:rexxreqtools.library")

UArgs=Upper(Args);URL="TCP:www.sofcom.com.au/80";File="0"
Tag="SCGuide 0.8 ©2002 Michael Trebilcock";NL="0A"x
IF UArgs="HELP"|Args="?" THEN Call CloseTCP("Usage: RX SCGuide [FORCE]")

IF GetClip(SCDate)~=Date() THEN Call SetClip(SCDate,Date())
ELSE IF Right(UArgs,5)~="FORCE" THEN DO;File="1";URL="T:SCDate.log";End

INFO Screen;Screen="rt_pubscrname='"Result"'"

IF File="0" THEN IF ~Open(File,"T:SCDate.log","W") THEN Call CloseTCP("Unable to open T:SCDate.log to save dates info to")
IF File="1" THEN SAY "Reading dates info from T:SCDate.log, please wait.."
ELSE SAY "Connecting to www.sofcom.com.au, please wait.."
IF ~Open(TCP,URL,"RW") THEN DO
 IF File="0" THEN Call CloseTCP("Unable to connect, try again later..")
 Call CloseTCP("Cannot open T:SCDate.log, use the FORCE argument")
End
IF File="0" THEN DO
 SAY "Connected, grabbing dates information.."
 Call WriteLn(TCP,"GET /tv/ HTTP/1.0");Call WriteLn(TCP,"")
End
Output=ReadLn(TCP);IF File="0" THEN Call WriteLn(File,Output)
IF Word(Output,2)~="200" THEN Call CloseTCP("Error "Word(Output,2)", unable to grab dates information..")
i=0
DO UNTIL i=2|EOF(TCP)
 Output=ReadLn(TCP);IF File="0" THEN Call WriteLn(File,Output)
 IF Word(Output,1)="<SELECT" THEN i=i+1
End
IF EOF(TCP) THEN Call CloseTCP("Page layout has changed, please report this to [e-mail]")
i=1;Output=ReadLn(TCP);IF File="0" THEN Call WriteLn(File,Output)
DayOpts="Please select one of the following:"NL
DO UNTIL Left(Output,9)="</SELECT>"|EOF(TCP)
 Where=SubStr(Output,Pos(d2c(34),Output)+1)
 Day.i=SubStr(Where,1,Pos(d2c(34),Where)-1)
 DayOpts=DayOpts""NL""i". "Day.i
 i=i+1;Output=ReadLn(TCP);IF File="0" THEN Call WriteLn(File,Output)
End
Amount=i-1
IF EOF(TCP) THEN Call CloseTCP("Page layout has changed, please report this to [e-mail]")
Call Close(TCP);Call Close(File);SAY "Grabbed date information.."
NWorks.1="";NWorks.2="";NWorks.3=""
NWorks=rtgetstring("","Please select one of the following:"NL NL"1. Free to Air"NL"2. Foxtel"NL"3. Optus Television",Tag,"_Ok|_Cancel",Screen)
IF rtresult="0" THEN Exit;IF NWorks<1|NWorks>3 THEN Call CloseTCP("Invalid selection!")
NWorks.NWorks="on"
Loc=rtgetstring("","Please select one of the following:"NL NL"1. Adelaide"NL"2. SA Regional"NL"3. Brisbane"NL"4. QLD Regional"NL"5. Canberra"NL"6. Darwin"NL"7. NT Regional"NL"8. Hobart"NL"9. TAS Regional"NL"10. Melbourne"NL"11. VIC Regional"NL"12. Perth"NL"13. WA Regional"NL"14. Sydney"NL"15. NSW Regional",Tag,"_Ok|_Cancel",Screen)
IF rtresult="0" THEN Exit;IF Loc<1|Loc>15 THEN Call CloseTCP("Invalid selection!")
Loc.1="Adelaide";Loc.2="SAReg";Loc.3="Brisbane"
Loc.4="QLDReg";Loc.5="Canberra";Loc.6="Darwin"
Loc.7="NTReg";Loc.8="Hobart";Loc.9="TASReg"
Loc.10="Melbourne";Loc.11="VICReg";Loc.12="Perth"
Loc.13="WAReg";Loc.14="Sydney";Loc.15="NSWReg"
Loc=Loc.Loc;Day=rtgetstring("",DayOpts,Tag,"_Ok|_Cancel",Screen)
IF rtresult="0" THEN Exit;IF Day<1|Day>Amount THEN Call CloseTCP("Invalid selection!")
Day=Day.Day;Time=rtgetstring("","Please select one of the following:"NL NL"1. Morning"NL"2. Afternoon"NL"3. Night"NL"4. LateNight",Tag,"_Ok|_Cancel",Screen)
IF rtresult="0" THEN Exit;IF Time<1|Time>4 THEN Call CloseTCP("Invalid selection!")
Time.1="Morning";Time.2="Afternoon"
Time.3="Night";Time.4="LateNight"
Time=Time.Time
SAY "";SAY "Location = "Loc;SAY "Day = "Day
SAY "Time = "Time;SAY ""
SAY "Connecting to www.sofcom.com.au, please wait.."
IF ~Open(TCP,"TCP:www.sofcom.com.au/80","RW") THEN Call CloseTCP("Unable to connect, try again later..")
SAY "Connected, reading TV schedule.."
Call WriteLn(TCP,"GET /cgi-bin/TV/select?fta="NWorks.1"&fox="NWorks.2"&opt="NWorks.3"&state="Loc"&date="Day"&lk=sofcom&searchtype=search&option="Time"&Submit=View+TV+schedule HTTP/1.0")
Call WriteLn(TCP,"")
Output=Word(ReadLn(TCP),2);IF Output~="200"&Output~="302" THEN Call CloseTCP("Error "Output", unable to read TV schedule..")
IF Output="200" THEN Call ReadList();ELSE DO
DO UNTIL Word(Output,1)="Location:"|EOF(TCP)
Output=ReadLn(TCP);End
IF EOF(TCP) THEN Call CloseTCP("Page layout has changed, please report this to [e-mail]")
Call Close(TCP);SAY "Received re-direction URL, connecting..";SAY Output
Parse Var Output a".au"URL;IF ~Open(TCP,"TCP:www.sofcom.com.au/80","RW") THEN Call CloseTCP("Unable to connect, try again later..")
Call WriteLn(TCP,"GET "URL" HTTP/1.0");Call WriteLn(TCP,"")
IF Word(ReadLn(TCP),2)~="200" THEN Call CloseTCP("Unable to read TV schedule..")
Call ReadList()
Exit

CloseTCP:
IF Arg(1)~="" THEN SAY Arg(1)
Call Close(TCP);Call Close(File)
Exit

ReadList:
DO UNTIL EOF(TCP)
 Output=ReadLn(TCP)
 IF Pos("valign="d2c(34)"TOP"d2c(34)" bgcolor="d2c(34)"#CCCCCC"d2c(34),Output)>0 THEN DO
  SAY ""
  SAY ""
  Where=SubStr(Output,Pos("<B>",Output)+3)
  SAY ""SubStr(Where,1,Pos("</B>",Where)-1)""
  SAY ""
 End
 IF Pos("am:",Output)>0|Pos("pm:",Output)>0 THEN DO
  IF Left(Output,4)="<BR>" THEN Where=SubStr(Output,5)
  ELSE IF Pos(".",Left(Output,4))>0 THEN Where=Output
  ELSE Where=SubStr(Output,Pos("<B>",Output)+3)
  When=SubStr(Where,1,Pos(":",Where)-1)
  Where=SubStr(Output,Pos("<a href=",Output))
  Where=SubStr(Where,Pos(">",Where)+1)
  SAY ""When": "SubStr(Where,1,Pos("</a>",Where)-1)
 End
End
SAY ""
SAY ""
Call CloseTCP("TV listings complete..")
Exit